home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / STARMAP.DIR / 00003_Script_3 < prev    next >
Text File  |  1995-11-16  |  1KB  |  65 lines
  1. on startMovie
  2.   global gCOM --gCOM: is true if the movie is a celestial objects movie
  3.   
  4.   put char 1 of the movieName = "O" into gCOM
  5.   
  6.   global gLittleObject
  7.   set gLittleObject = 0
  8.   
  9.   cursor 4
  10.   
  11.   startTimer
  12.   --put ">>>before local" && the timer/60.0
  13.   
  14.   --MemoryWaterMark "before local vars"
  15.   setLocalVariables
  16.   --MemoryWaterMark "after local vars"
  17.   
  18.   --put ">>>before buttons" && the timer/60.0
  19.   
  20.   --MemoryWaterMark "before buttons vars"
  21.   buildStarMapButtons
  22.   --MemoryWaterMark "after buttons vars"
  23.   
  24.   --put ">>>after buttons" && the timer/60.0
  25.   
  26.   --buildStarMapList
  27.   
  28.   cursor -1
  29.   
  30. end startMovie
  31.  
  32. on stopMovie
  33.   unload
  34.   pass
  35. end stopMovie
  36.  
  37. on setLocalVariables
  38.   global gFiorellaOnStage, gRetraceNames, gVolume
  39.   global gCurrChan,gFirsChan,gLastChan,gCurrList,gPrevHilite, gCurrFrame
  40.   if voidP(gRetraceNames) then put empty into gRetraceNames
  41.   if voidP(gVolume) then put 7 into gVolume
  42.   put -1 into gCurrFrame
  43.   put false into gFiorellaOnStage
  44.   set  gCurrList to [:]
  45.   put 0 into gPrevHilite
  46.   put 5 into gCurrChan
  47.   put 5 into gFirsChan
  48.   put 47 into gLastChan
  49. end setLocalVariables
  50.  
  51. on firstTimeInFrame
  52.   global gCurrFrame
  53.   if gCurrFrame = the frame then
  54.     set myResult to false
  55.   else
  56.     set myResult to true
  57.     put the frame into gCurrFrame
  58.   end if
  59.   return myResult
  60. end
  61.  
  62. on contents
  63.   go movie "TOC.DIR"
  64.   abort
  65. end contents